home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / STARTUP.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  42 lines
  1. 10  REM   MENU FOR N.A. PROGRAMS
  2. 20 D$ =  CHR$(4)
  3. 30  HOME 
  4. 40  HTAB 12: INVERSE : PRINT "DU PONT PRESENTS"
  5. 45  NORMAL 
  6. 50  PRINT 
  7. 60  HTAB 8: INVERSE : PRINT "NEWTON'S APPLE FREEWARE"
  8. 65  NORMAL : PRINT : PRINT 
  9. 68  PRINT "***************************************"
  10. 70  PRINT : PRINT 
  11. 80  PRINT "     A)   MIRRORS"
  12. 90  PRINT : PRINT "     B)   INERTIA"
  13. 93  PRINT : PRINT "     C)   PROBABILITY"
  14. 95  PRINT : PRINT "     D)   NEWTON'S KNOWLEDGE"
  15. 100  PRINT : PRINT "     X)   EXIT THIS PROGRAM"
  16. 105  PRINT : PRINT "***************************************"
  17. 108  VTAB 22
  18. 110  PRINT : PRINT "Enter the letter of your choice:  _"; CHR$(8);: GET CH$
  19. 120  IF CH$ = "A"  OR CH$ = "a"  THEN  PRINT D$;"RUN MIRRORS"
  20. 130  IF CH$ = "B"  OR CH$ = "b"  THEN  PRINT D$;"RUN PHYSICS"
  21. 140  IF CH$ = "C"  OR CH$ = "c"  THEN  PRINT D$;"RUN PROBABILITY"
  22. 150  IF CH$ = "D"  OR CH$ = "d"  THEN  PRINT D$;"RUN KNOWLEDGE"
  23. 160  IF CH$ = "X"  OR CH$ = "x"  THEN  GOSUB 200
  24. 170  GOTO 108
  25. 200  HOME 
  26. 210  HTAB 8: PRINT "Newton's Apple Freeware"
  27. 215  HTAB 9: PRINT "is made possible by"
  28. 220  PRINT : HTAB 18: PRINT "by"
  29. 230  PRINT : PRINT : HTAB 10: PRINT "a grant from Du Pont"
  30. 240  FOR I = 1 TO 1500: NEXT I
  31. 245  PRINT : PRINT : PRINT 
  32. 250  PRINT "Created and distributed"
  33. 270  PRINT "by"
  34. 290  PRINT "TelEd, Inc."
  35. 300  FOR I = 1 TO 1500: NEXT I
  36. 305  PRINT : PRINT 
  37. 310  PRINT "Written by Bob Houghton"
  38. 320  FOR I = 1 TO 1500: NEXT I
  39. 325  PRINT 
  40. 330  PRINT "NEWTON'S APPLE is a production of"
  41. 350  PRINT "KTCA-TV in Minneapolis/St. Paul"
  42. 360  END